|
|  Black Hole
|  Written by Ph.Donsback
|
SCRIPT_TYPE 1
|
BEGIN "Black Hole"

  FLAGS  ClickFly AnimateFly 
  PACKS  1
  WIDTH  5 * CW + 5 * 2 * COW
  HEIGHT 4 * CH
  ZeroToWin CARDSIN$1 

| Foundations

  FOUNDATION
    X 2 * CW + 2 * 2 * COW + 2 * COW / 2
    Y 1 * CH + CH / 2
    MAX 52
    Deal 1,1
    Dealcard s1
    JoinOffset 1, -1
    FLAGS Join____ RotateJoin
    ID 2
  END

| First row of stack

  FOR stack = 0 TO 4
    STACK
      X stack * CW + stack * 2 * COW
      Y 0
      MAX 0
      DEAL 3,1
      DRAGUPTO 1 
      FLAGS ClickFly PaintRight
      ID 1
    END
  END

| Second and third row

  FOR row = 1 TO 2 
    FOR stack = 0 TO 1
      STACK
        X stack * CW + stack * 2 * COW
        Y row * CH
        MAX 0
        DEAL 3,1
        DRAGUPTO 1 
        FLAGS ClickFly PaintRight
        ID 1
      END
    END
    FOR stack = 3 TO 4
      STACK
        X stack * CW + stack * 2 * COW
        Y row * CH
        MAX 0
        DEAL 3,1
        DRAGUPTO 1 
        FLAGS ClickFly PaintRight
        ID 1
      END
    END
  END

| Fourth row

  FOR stack = 0 TO 3
    STACK
      X stack * CW + stack * 2 * COW + CW / 2 + 2 * COW / 2
      Y 3 * CH
      MAX 0
      DEAL 3,1
      DRAGUPTO 1 
      FLAGS ClickFly PaintRight
      ID 1
    END
  END

END
